home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Rexx / SelectDoc.bed < prev    next >
Encoding:
Text File  |  1998-06-24  |  869 b   |  56 lines
  1. /*
  2. ** $VER: SelectDoc.bed 1.0 (02.01.96)
  3. **
  4. ** Shows a list of the documents currently loaded in Blacks Editor and
  5. ** asks for the number of the document to be activated.
  6. **
  7. ** Written by Neil Lucking
  8. ** Modified by Martin Taillefer
  9. ** Modified by Marco Negri
  10. */
  11.  
  12.  
  13. OPTIONS RESULTS
  14. OPTIONS PROMPT "Select document > "
  15. OPTIONS FAILAT 21
  16. PARSE ARG name
  17.  
  18. ADDRESS BED
  19.  
  20. IF name = "" THEN DO
  21.     GetDocuments
  22.     docs = RESULT
  23.     SAY "Available documents:"
  24.  
  25.     i=1
  26.  
  27.     DO WHILE docs ~= ""
  28.         PARSE VAR docs '"'file'"' file.i docs
  29.         IF file = "" THEN file = "Untitled"
  30.         SAY ' ' i ':' file
  31.         i = i+1
  32.     END
  33.  
  34.     IF i=1 THEN DO
  35.         SAY "No documents loaded"
  36.         RETURN
  37.     END
  38.  
  39.     PULL n
  40.  
  41.     IF n = "" THEN RETURN
  42.  
  43.     ADDRESS VALUE file.n
  44. END; ELSE DO
  45.     GetPort name
  46.     ADDRESS VALUE RESULT
  47. END
  48.  
  49. IF RC = 0 THEN DO
  50.     Screen2Front
  51.     IconifyWindow OFF
  52.     ActivateWindow FRONT
  53. END; ELSE DO
  54.     SAY "Document not found"
  55. END
  56.